MacHack 1994/MacHack 1994.toast/MacHack™ 1987-1994/MacHack™ '89/Other stuff/Virus Encyclopedia/background_2783.txt

Text File | 1989-06-08 | 5.0 KB | 261 lines

-- background: 2783 from stack: in
-- bmap block id: 3161
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=33 right=51 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Subject


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=26 top=63 right=294 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=216 top=292 right=317 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=265 top=292 right=317 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=19 top=292 right=321 bottom=51
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=459 top=292 right=320 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=269 top=63 right=196 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=260 top=212 right=287 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Related Topics
----- HyperTalk script -----
on mouseup
  findSubject
end mouseup



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=57 top=295 right=317 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Contents
----- HyperTalk script -----
on mouseUp
  push card
  visual effect dissolve
  go to card Contents
end mouseUp




-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=370 top=294 right=316 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Glossary
----- HyperTalk script -----
on mouseUp
  push card
  visual effect dissolve
  go to card Glossary
end mouseUp




-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=299 top=294 right=316 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Map
----- HyperTalk script -----
on mouseUp
  push card
  put the short name of this card into fromCard
  push card
  visual effect scroll down slowly
  if field Version is empty then
    go to card Map
  else
    go to card "Map 2"
  end if
  repeat 5 times
    set hilite of button fromCard to true
    wait 5
    set hilite of button fromCard to false
    wait 5
  end repeat
end mouseUp



-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=26 top=276 right=294 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Version


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=387 top=212 right=287 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Related Topics 2
----- HyperTalk script -----
on mouseup
  findSubject
end mouseup